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COMMENT? * TITLE? 85500/H5700 HARK XIV SYSTEM KELEASE * 000U0100 
* FILE ID: SYMBUL/TPECNF TAPE ID: SYMbULE/FILEOOO * OQOGQ104 
* THIS MA RLA S PROPRIETARY ) BURKUUGHS ATION * O00VN040¢ a 
* AND IS NCT TO BE REPRODUCEDs USED» OR DISCLOSED * 00900103 
* EXCEPT IN ACCURDANCE WITH PRUGRAM LICENSE OR UPON * 009000104 
bad N AUTKOR A ON UF PA Ni) * 00000105 -_ 
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BEGIN 00010000 
BRO N P A Pi Sa a pS a eh Bn ies it he a erten aol 
BEGIN 00010200 
FILL TOGGLE WITH FALSe&,S 00010300 
FILL TALLY WITH J3 eae ari OUI ORO. 2 ao ie esc 
60 BEGIN 00010500 
SPACE MTAs 00010600 
SPACE MTA APEMARK OO0,U700 Renee err acts! 7 
DO SPACE MTA ? TIMES; 00010800 
SPACE MTA TAPEMARKS 00010900 
D PACE MTA ALPHA 7 LM fe OOo. Ne = Paid eee ct loa 
SPACE MTA TAPEMARK; 00011100 
oo lave MTA 10 TIMES, 00011200 
4 f MAK Mh Jn 0: : Seicots ES os sctbeeiaes stant a a 
DO SPACE NTA 11 TIMES: 00911400 
SPACE MTA TAPEMARK ON ERRUR 0001150¢ 
5 a a ee SOOO LTA CO 2. ee ee A 
SPACE MTA TAPEMARK UN ERRUR 00011700 
ELSE 00011800 
REGIA O0O01L1900 ee 
FILL TOGGLE WITH TRUE; 00012000 
STOP; 00012100 
NOs 0001; 0 ea at, Rainy t 
DISPLAY DOURPLE? 00012300 
PRINT PATTERN NOF IND | 00012400 
"COMMENT? fy W FIND EN a F ean 00012500 ib thes 
FILL TALLY WITH TALLY+43 00012600 
Ir TALLY NEG 3 THEW 00012700 
PRINT PATTERN RETRY 24(9% "yew Y_AGAIN™) 3 00012800 7 Boks 
DISPLAY PAGE; 00012900 
REWIND MTA3 : 00013000 
NL vi 00 Q : U0 jaimatiat aan ais 
IF TOGGLE TREN 00013200 
IF TALLY NEW 0 THEN 0G043300 
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END3 
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MTA PATTERN FIO 8000000000000" )3 
MTA PATTERN F244 B8O00C™L 424441") 
ROM 6B ; seen OG 
MTA PATTERN Fi42 B8000C"22222222")3 
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ROM BL! ry 3 
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WRITE MTA TAPEMARKS 
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WRITE MTA PATTERN F2Q 8000¢acT3737373737373737") ALPHA 
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00230000 
00¢40000 
Q0e500C0 
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WRITE MTA PATTERN Feo B000COCT"7777777777777777") ALPHAs OUZYU00N 


WRITE MTA eon F2l 


WRITE MTA PATTERN Fee 
WRITE MTA PATTERN F23 
ROM ey Ro ne 
WRITE MTA PATTERN F24 
WRITE MTA PATTERN F25 
ROM B “FR A 
WRITE MTA PATTERN F26 
WRITE MTA TAPEMARKS 
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WRITE MTA TAPEMARK3 
RWRITE FILE: ae 
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‘THRU: TALLYS 2 
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WRITE MTA “TAPEMARKS 
WRITE MTA TAPEMARKS 
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00440000 
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00510000 
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BUFFER BUFFL WITH PATTERN goo" ")3 


MTA PATTERN TAPELABEL INTO BUFFER BUFF13 
MTA TAPEMARK3 


READ MTA PATTERN. F10. INTO BUFFER. BUFF I 
AD MTA PATTERN rit “INTO BUFFE 
EAD MTA PATTERN F1 
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00370000 
00580000 
00590000 
00600000 
00610000 
00620000 
00630000 
00640000 


rc I a i ec tt 


e 


a ( 


aL IRA ne 
BS Fs 


: : i i . 
ae ie 2) aise , e i 


rey 
4 ed 


om 
sn 


a 
a4 


AN 


A a A ee 


Data Documents/Iinc. 


a 
eB 8 


Gs FF Fs R 


READ MTA PATTERN F13 INTO BUFFER BUFF 13 
READ mys POE Fig INTO BUFFER BUFF LS 


READ NTO GUFFER fi 


READ MTA PATTERN Fi6é INTO BUFFER BUFF 14 


READ MTA TAPEMARK3 
BRE AD ‘ 
IF MNC3 THEN 


READ MTA FATTERN F20 INTC BUFFER BUFFL ALPHA 


READ MTA PATTERN Feé INTO BUFFER BUFFI3 
READ MTA ees Fei INTO BUFFER BUFF. ALPHAS 
SE LD OOO 
READ MTA PATTERN F23 INTO BUFFER GUFFL ALPRAS 
READ MTA Seal Fe4 INTO BUFFER BUFF I Abid 


READ A FERN OF NTO 2 ‘ERB 


Al) MIA rf IN B 


READ MTA PATTERN F26 INTO BUFFER BUFF 1 ALPHAS 


READ MTA TAPEMARK; 


PRE AD 
oo 
BEGIN 
Rr Al) N A F&A R NTO 
END 
10 TIMES; 
RRE AL) 


FILL BUFFER BUFF1 WITH PATTERN BULAC™ "), 


READ MTA TAFEMARKS3 
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BEGIN 
READ A PA Rh WRU A 
FILL TALLY WITH JALLY+*+8003 
ene 11 TIMES3 
Al) MIA APE MARK 
READ MTA PRPERADKG 
REWIND MTA} 


NO M 0 O0000 Se aed, 
Brak keke eETEST 4 (BOT SENSING TEST aac ed eee Rk td kite eke 01010000 
TEST 18 01020000 
MOL HEN N00 peat Gant 
FILL TOGGLE WITR FALSE 01040000 
ELSE | 01050000 
BEGIN 04060000 ete hate 
PRINT PATTERN DASH 72eC"™=")3 019070000 
PRINT PATTERN C"TEST #1 NUT RUNCNUT AVAILABLE "os 01080000 
Wy H VOD SONTROL S$" — OFOSOQ0O eects A ee os 
PRINT PATTERN | DASHS 01100000 
OISPLAY PAGES ? 01210000 . 
pS el es Sot ee EPA OOOO Batali, Bi 
ENDS 01130000 
VQ BEGIN 01140000 
PRINT PATIERN C"TEST #1 7° BOT SENSING T 21")5 03115000 ene, 
PRINT PATTERN UL26 26("%s") DOUBLES 01160000 
REWIND MTA ‘ROT Q7170000 
; 3 1) 3LE WITH TK o1is0oog eae 
BACKSPACE MTA. BOTs 04190000 
IF BOT THEN FILL TOGGLE WITH TRUE; 01200000 
READ é _ ool Ea 
TF BOT. THEN FILL TOGULE WITH TRUES 04220000 
eNO * LIMES 01230000 


MEN. Gf 
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BEGIN 01250000 
aoe oy LER CPUNTT FAILED TO DEES? Bea DOUBLES es 
PR AN WMREMAIANIA NO) Rin) 3 Pa ore 
: @Q EXITS 01260000 
ENOs.. O1290000 
Set eeeweeeeaT EST 7 APE 35 [TONING ST CPT ere eee eee Tere 3U0000 no x 
TEST 23 01310000 
Ul) BEGIN 01320000 
PRINT PA RN C'%TEST #e = TAF INNING ST" 01330000 thy 
PRINT PATTERN 314¢%2") DOUBLES 013460000 
SPACE MTA PATTERN 723 01350000 
_SPA MTA TAPEMARK3 a a Eas cs i ee eg a cle 
Ou 0343/0000 
SPACE MTA PATTERN 8O0UU 01300000 
[ME QO 4390009 ——. ae are: 
SPACE MTA TAPEMARK; 01400000 
(0 01410000 
SPA MTA PA RN BO O1420000 a 
? TIMES; 01430000 
SPACE MTA TAPEMARns 01440000 
ala 0 0.0 aed AIRE 
SPACE MTA PATTERN 8000 04460000 
10 TIMES; 014970000 
3P A MLA APE MARK 3 ee ae PSO) Oe ote rr de Sh ree ee ee a 
SPACE MTA PATTERN 83 G144U000 
SPACE MTA EAT TERS 808s eee 
i MTA RS 6NB~s 1200 es SP a SN NE Ne ta se he Be fe 
SPACE MTA PATTERN 24083 01453000 
SPACE MTA oeteS 3208 01494000 
SPs MTA N 400K a Se re ee a te 
SPACE MTA PATTERN 48003 01496000 
SPACE MTA ee 56003 01447000 
SPACE A 64083 01498000 es 
SPACE. MTA PATTERN 72083. 014999000 
SPACE MTA PATTERN 800as 01200000 
‘SPA MTA APEMARK 3 01520000 Sates oe a 
BACKSPACE MTA TAPEMARKS 04530000 
BACKSPACE MTA PATTERN d008s 01540000 
GACKSPA MIA Pa RN 720d5 541000 Betta, 
BACKSPACE MTA PATTERN G40445 01542000 
BACKSPACE MTA PATTERN 56083 : 01543000 
BACKSPA MIA PA RN: 48095 Pa Pg es a Aca a er a) ee OO Osco eo ee i ee 
BACKSPACE MTA PATTERN 40088 01245000 
BACKSPACE MTA PATTERN 32093 01546000 
BACKSPA MTA PATTERN 24003 01547000 paar 
BACKSPACE MTA PATTERN 16083 01548000 
: BACK SPACE MTA PATTERN 8083 015490006 
BACK SP M a PA AN 83 9500 644, Fe Se 
BACK SPACE MTA TAPEMARKS 01570000 
oye) 0424d0000 
__BACKSPACE MTA PATTERN 8000 041590000 ot SO es Ce, 
“10 TIMESS 01600000 
BACK SPACE MTA TAPEMARK3 01619000 
ve : 01620000 = 
BACK SPACE MTA PATTERN 3000 01630000 
7 TIMES; 01640000 
SACK RACE. MTA TAPEMARKS 04950000 _ 
00° . 01660000 
BACKSP ACE MIA PATTERN goog 04670000 
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BACKSPACE MTA TAPEMARK, O16%JQ000 
BACKSPACE MTAe 0170V000 
REWIND MT as en ats a Re a ee Bl 
END * TIMESs GO TEST: 04730000 
BAehaewweeeee TEST 3 CTAPE MARK RECOGNITION TEST) «*eeewrnatw actin 1740000 
: 750000 
VO BEGIN 01700000 
ine ea ta. CN TEST a307 TAPE MARK RECOGNITION TEST")3 01770000 
Acts 3 : O 3) O0 ars rae 
SPACE MTA PATTERN 723 01790000 
po 01600000 
= N A a a OR OOOO. Ss Se ee 
READ MTA TAPEMARKS 018<0000 
DO SPACE MTA 7 TIMES 01830000 
REA A ba fad ACA 3 84000 yc et Rd La ast Nn A aii at 
DQ SPACE MTA ALPHA 7 TIMES} 01850000 
READ MTA TAPEMARKS 01860000 
0.0 YA MTA 4. MES 01870000 a en 
READ MTA TAPEMARK3 01860000 
DO SPACE ie 11 TIMES? 01890000 
AcE MIA MAK —__O41900909 Bane ea I A ean 
READ MTA FiPeMnae BKWD; 01910000 
po Gag ee 11 TIMES; 01920000 
x (yi i bE “i at re i. H a ET OL sis kilt eeeecieee snr es — ~ 
pd BACKSPACE. MTA 10 TIMES; 01940000 
READ VTA TAPEMARK eee 01930000 
O00 BACK i MTA A Mi: co ae ta sah te Hitt ees ea are OR Bat ed = 
READ MTA TAPEMARK eKxDS 01970000 
00 BACKSPACE MTA 7 TIMES; 01980000 
READ APEMARK BKWD 01990000 Nes 5 rN wl eee cle 
ENO 02000000 
3 TIMES; 02010000 
. dl fn RB See eI Wy ere eyes ecmrmemsrrrrmetes ©.57.° 0°80, 0 © Rena te ear aa ae O 
END * TIMES? GO TESTS 02930000 
etaeaeweweaweTEST 4 CPARITY ERROR RECOGNITION TEST ) ea kkk ete ee ee eO2040000 
TEST 42 02050000 eee 
CO BEGIN 02960000 
PRINT PATTERN C"TEST #4 = PARITY ERROS RECOGNITION JEST™)3 02070000 
PRINT PATTERN 39("=") DOUdGLES O2U¥0000 fede oboe ee, 
“READ MTA PATTERN 723 02100000 
READ MTA TAPEMARK3 02110000 
OG 02120000 = we 
READ MTA PATTERN 3000 ALPHA PARITY 02130000 
7 TIMES; 02140000 
j 07150000 : - 
READ MTA PATTERN BO000 BKWD ALPHA PARITY 02160000 
7 ees 02170000 
a MT oO. ALPHA MES 3 iO ee re ere 
SPACE MTA TAPEMARKSs 02190000 
DO 02200000 
READ A Ps N 8OCO PA 02210000 fa ata oP eect Baro hs a 
7 TIMES; 02220000 
Da 02230000 
~AD MTA PATTERN 8000: PA RITY BKWD 02240000 ta oe or Ee ty 
7 res 02250000 
REWIND MTA; 024260000 
NO» MESS GO TEST; 02270006 oe nn 
Stee eee eETE ST ) C TAPE READ TEST) Ae ee Rea ee eee ik eee O2280000 
TEST ‘$1 02290000 
DOU RBEGIA a> annoNo 
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Z ce : z : “ a 


e 6 a a Se al ec ee 
PRINT PATTERN ("TEST #5 = TAPE KEAG TEST")3 02310000 
e PRINT PATTERN 2u¢"=") UOUBLE: 0232000C e 
A A a NX 7 2a: a ig Se et Oo A ce ee 
READ MTA TAPEMARK3 ; 02340000 
@ KREAD FILE 1 7 02350000 .@ 
READ MTA PATTERN F10 INTO BUFFER BUFFIS ONO Be eet ae 3 
READ MTA PATTERN F11 INIO BUFFER BUFF1S 02370000 
@ READ MTA PATTERN F12 INTU BUFFER BUFFL» 02340000 e 
RE A MLA A FRN OF NTO 4B -R ‘Eile 0% AOO000 6 ante hkl seet = 
READ MTA PATTERN F14 INTO BUFFER BUFF 14 02400000 A 
® READ MTA PATTERN F15 INTO BUFFER BUFF 13 02410000 -@ 
READ MTA Pa RN F114 NTO 0 e000 BN Ra ee ee eo . 
READ MTA PATTERN F16 BKmD INTU BUFFER BUFF 1) 02430000 
er READ MTA PATIERN F15 EKWD INTC BUFFER BUFF I 02440000 @ 
READ MTA PATTERN F4u beW) Ip FER eet nested ete ae 0.0: A eae Sees Se ee oe ee — 
READ MTA PATTERN F13 SKWD- INTO BUFFER BUFFI3 02460000 Ms 
@) READ MTA PATTERN Fiz BNO INTO BUFFER BUFF LS 02470000 .@ 
READ mia a BHKWD INT BUFFER : 2480000 sea Se Gia : 
READ MTA PATTERN FLO BKWO INTC BUFFER BUFF 13 02440000 : 
er 00 SPACE WTA 7 TIMES; 02500000 (@ 
READ MTA ARK rete OOO Ot es nt el a ‘ 
ZREAN FILE 2 02520000 “ 
e IF MOD3 THEN 02530000 @ 
| READ MIA PATTERN £26 PARITY INTG MUFFER BUFF 02540000 fe ao ee = 
g ELSE 0255000C Z 
2 @F READ WTA Pee t 20 PARITY INTC SUFFER BUFF AS 02560000 ©@ 
g “AD MTA PATT A UU " 76 " BOBS 10 QO ang es are te et a tet : 
sf. . PARITY INTO BUFFER BUFF AS 02580000 5 
2 OF READ MTA PATTERN F22a 8000(0CT"7575757575/57575") 02590000  @ 
Q PAR IN "EM HUF ; ec ih ne OB OOO OG es ee te oh mt 
Pa READ MTA PATTERN F23A 8000(0CI"737373/ 373737373") 02610000 a 
@r PARITY INTO SUFFER BUFF 13 02620000 u@ 
‘ AD i¥} A Pp a i\ z A ° 0 ue " 6 @) 6 / 6 / A | (’ @ O " Le + : | Bc eta shina oS : 2 . oh 
_- PARITY INTO BUFFER BUFFLs | / 02640000 i 
rd] READ MTA PATTERN F25 PARITY INTO BUFFER BUFFQ3 02650000 @ 
READ MTA PATTERN F20 PARITY INTO BUFFER BLFFL3 02660000 eee a: 
READ MTA PATTERN F20 BKWO PARITY [NTG BUFFER BUFF 43 02670000 tot 
@ READ WTA PATTERN F25 BKND PARITY INTO BUFFER BUFF LS 02660006 @ 
READ MTA A ~-RA PAK I N BUFFER B ; 07690006 hoe wien RN eee 
READ MTA PATTERN F23A BKWD PARITY INTG BUFFER BUFFIS 02700000 : 
er READ WTA PATTERN F22A BKNU PARITY INTO BUFFER BUFF 43 02710000 ' @ 
READ MTA PATTER 21a BKWD PARITY INT 02720000 Die a “ 
IF MOO3 THEN 02730000 
@ READ MTA PATTERN F26 BKWD PARITY INTO BUFFER BUFF1 02740000 @ 
02750006 ee oe 
READ MTA PATTERN F20 PARITY INTO. BUFFER BUFFi3 02760000 a 
@ DO SPACE MTA ALPHA 7 TIMESs = ~ . 02770000 «@ 
READ MTA TAPEMARKS 02780000 _ is 
“READ FILE 3 02790000 ww) 
 ] no 02800000 mm] 
READ MTA A “R : = 0281000 ee ee ; ae 
; INTO BUFFER BUFF 1 — 02820000 7 
OF 10 TIMESS | Bee 028630000 (@ 
9 ODO READ MTA P “RN F NTO BUFFER BUFF BKWD 10 M 024640000 of ae 
al 00 SPACE MTA 10 TIMES} 02850000 82 
“oF READ MTA TAPEMARK} . 02860000 i(@ 
mE EREAD | 4 . 0287N0 eee ae __fs 
| ~ FILL TALLY WITH 83 | oe nee i 02880000 bg 
ad , Se : a © | | 02890000 1@ 
eee BEGIN 900 =i sash flee 
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cu Pea Ee eee eae e-e 
READ MTA PATTERN F4 THRU TALLY IwlO BUFFER BUFFL3 02910000 
FILL TALLY WITH TALL Y+8003 02920000 ®& 
END : M 1 OY SA0000 aU Pen a Ss La mer 
po 02940000 . 7 
BEGIN 02950000 1@ 
A | 14 TA "ADC O GOO0D. 2. ee fd eat? 
READ MTA PATTERN F4 THRU TALLY [WTO BUFFER BUFF BKWD3 02970000 3 
END 11 TIMES; 0298000U I@ 
PWIND MTA$ O< 0000 aR Ne Sct Nee Pah AN OB acs Se pteeeaes te | 
END * TIMES GO TESTS 03000000 i 
FECES SAT TATED T 6 (TAPE WRITE TEST is dawauweeeaiha ag ueuseanuweseedeaeiweciorocde ‘@® 
ST ¢ eee ee ee es GOP OOO Otc: ee i 
UO BEGIN 03030006 | 
PRINT PATTERN (TEST #6 ~ TAPE WRITE TEST")3 03040000 -@ 
PRIN PAT. N , | Ys") DNOus TJ 03050000 Oh Ss a ee tt MAS Ye 
CALL SPACEUP} 03460000 i 
IF NOT TOGGLE THEN STOPS 03070000 ] 
. NACI s 13000 \ 
nnn | 
WRITE MTA PATTERN F103 03240000 : 
WRITE MTA PATTERN F1il FROM 6UFFER BUFFS 03550000 '@ 
Ni MTA PATIERA 25 FRR Ce: i> F001 01 618 keen at ee ge 
WRITE MTA PATTERN F13 FROM BUFFER BUFF LS 03370000 
WRITE MTA PATTERN Fias 03580000 -@ 
i 8 ad A BAN a Mi ; SG Qooo Aoteusf Ee ede ca tea te toate, Masd 
WRITE MTA PATTERN F1d3 036U0000 
READ MTA PATTERN F160 INTO BUFFER BUFF. BRKWD - 03610000 -@ 
READ MTA PATTERN F15 INTO BUFFER BUFFY Barbs _ i OZOQ00 SR ie oy a oe 
READ MTA PATTERN F14 INTO BUFFER BUFF1 BKWDS 03030000 a 
READ MTA PATTERN F13 ive SUFFER BUFF 1 BKWD3 03640000 “@ 
YE AD MTA PA ARN y BK wld 02650006 eee ee ee ga 
READ MTA PATTERN FL1 INTO aUEEE BUFF 1 BKWD3 03660000 5 
READ MTA PATTERN F10 ‘Nee BUFFER BUFF L BkKwO 03670000 i@ 
A MIA PA - RA B : ‘EL 0368000 fea asa a Alin 3 . betta 18 Perera 
READ MTA PATTERN Fl] inte BUFFER BUFF 13 03690000 ‘| 
READ MTA PATTERN F12 INTG BUFFER BUFF AS 03700000 w@ 
READ MTA PATTERN FL3 INTO BUFFER BUFFLS UCDO 
READ MTA PATTERN Fi4 INTU BUFFER BUFF UL 03720000 y 
READ MTA PATTERN F15 INTC SUFFER BUFF I) 03730000 »@ 
READ A RA TER 5 "43 03740000 ; a ee ae a 
IF mOD3 THEN 03750000 a 
WRITE WTA PATTERN F2G ALPHA 03760000 | “@ 
om ys ive $y 
needa ecco xian 4 «ect a6 me 
WRITE MTA PATTERN Feo ALPHA, 03780000 i, 
WRITE MTA PATTERN F21 ALPHA; : 03790000 ®@ 
Ab MTA PA ALPRAS Q Q.0 Darrah leientton's nA ; rh eh iarete 
WRITE MTA PATTERN F23 FROM BUFFER BUFF1 ALPHA} 03810000 7 Ws 
WRITE MTA PATTERN F24 ALPHAS : 03820000 Shad 
Ba RN OF ROM BUFFER BUF AL PHAG NSS inc Oe i ee ns te ae 5 ee 
WRITE MTA PATTERN F26 ALPHA; 03840000 a 
READ MTA PATTERN F20 PARITY InTd BUFFER dUFF1 BKWOs 03850000 a 
AD A ‘BRA : BKWD 3 8900000 ei nash be nsaeea | 
READ MTA PATTERN F24A pakity INTO BUFFER “BUFFL BKWOS 03870000 af 
READ MTA PATTERN F23A PARITY INTO BUFFER BUFF1 BKND3 03880000 ~@ 
READ A RN PAR NTO Bt RB BK WO 03890000 Pia Ne ENS: Rater, bop ees lation etl 
READ MTA PATTERN rEqA PARITY INTO BUFFER GUFF1 BKND3 03900000 a 
IF MOD3 THEN 03910000 sf @® 
ne sory * hy 
READ MTA PATTERN F260 PARITY INTO BUFFER BUFF1 BKWDS © 03930000 | 88 
READ MTA PATTERN F26 PARITY INTO BUFFER BUFF 1S 03940000 | | «@ 
At ts - ; ae CAE ene Se a We SOOnNO _ . See Man estar! 7 fy 
@e °® 
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“ON ERROR 


OS OO ea a eet fod bes tg ha 


04940000 


ag a Nae ee ge os OO Oe et eS ee ee, 


BEGIN 034960000 
REAL aks PATTERN F2O PARITY INTO BUFFER BUFF I B8KWD3 03970000 
An : . ee ; ; ean 
END; 03990006 
READ MTA EACUERN Faia poeryy INTO ‘BUFFER BUFF 13 04000000 
READ ( ae i A tj 04010000 ee 
READ MTA PATTERN F23A PART TY INTO BUFFER BUFF 13 C4b2e2codd 
READ MTA PATTERN Fe4SA PARITY INTO BUFFER BUFF 13 04030000 
KEAD MTA PATTERN £25 PARITY IN BUFRERK & LFF 1, 040 
READ MTA PATTERN F20 PARITY INTO BUFFER BLFFL3 040500006 
DO 04060000 
ARI TE MTA PA KN sea ee eS OAD 7OON0 = 
10 TIMES; 04080000 
QU 04090000 
READ A PA Fi OF b -R_§ BK WD == ee 
10 TIMES; 04110000 
0 | | 04120000 
RE AD A Fp faa NTO A 0 Q000 
10 TIMES; 04140000 
FILL TALLY wITH 63 04150000 
) OUVOO0 
BEGIN 04170000 - 
WRITE hs PATTERN Fa shite TAULYS 041380000. 
END 11 TIMES; 042u0000 
pe 04210000 
a N. Se ON SOOO =. ‘< Sadat tana a ae ne oe al 
FILL TALLY WITH TALLY*8003 04230000 
REAM MTA PATTERN Fa THRU TALLY INTG BUFFER BUFF 1 BKWC3 04240000 
“ND " A 2k D060 
00 04260000 
BEGIN O4e/0000 
RE AG AT RN ial A X10 ; O42 80000 
FILL TALLY WITH TALLY*+8003 04290000 
END 14 TIMES; 04300000 
REWIND MTA 0 0.00 
TIMESs GO TESTS 0432000C 
Ax ake EKKKEKTEST 7 (CTRHANSLATOR TEST 2 Bk ke kk ie kB ki tik tte eee 04930000 
: OUuS4QO00 
Ss 04350000 
PRINT PATTERN CYTEST #7 = TRANSLATOR TEST93 043600006 
ag. Ps _* Oe i 
CALL SPACELP3 04300000 
IF NOT TOGGLE THEN STOP; 04370000 
NNING 0 
OO WRITE MTA PATTERN R C4CRIPPLE "2") 5 TIMES3 04800000 
oo eee er oer eee 5 urhe a 04810000 
~Dt READ a s KB M O48 2O0CGC0 
DO READ MTA PATTERN Ri 64 04830000 
«8 ocT "43191617606 10263" 04840000 
Bo OC "6465664 < " 04850000 
I"ZE]", 04860000 
inn, 04870000 
Wey "9 04880000 
B"MNOPQRxE", 04890000 
B OCT "53555657 34212223" oer nooe 
B"DEFGH1+ a 04910000 
8 OCT “3335363714010203"% |. 04920000 
GmasoTeraen) INTO BUrEeR eure ee ALPHA BKWD PARITY 04930000 
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END * 


OO BEGIN 


00 05070000 
READ MTA PATTERN R3 64( 050480000 
R +n eds 6177201626364", ee rc Oo rt ee 
8B OCT "6566677071737460"s» 05100000 
8 OCT "7576775241 424344", 05110000 
8 oO "a5 46 4 O35 BOM 0512000 pte eter Lt 
8 OCT "35565/72021222324"» 05130000 
B&B OCT "2526273031333432"» 05140000 
mete "353637 1¢ 04" —O515N000 i eel Got Mo 
@ oct *0506071011131400") 0516000G 
INTO BUFFER BUFF. PARITY 05170000 
Ot RO bs To egiBoogO eal 
BEGIN : 05190000 
DISPLAY PAuE3 05200000 
ea eee Be es a, We j uve 
END 05220000 
5 TIMES; 05230000 
REWIND M 05240000 Bee It ty he ne 
TIMES? GO TEST; 05250009 
Bt tke aekaeeeeeTEST 8B CALPHA TAPE READ TEST) ket IOI tiie i605 260000 
oy: 5 O52 7000i ae Sc tn, 
05280000 
PRINT PATTERN C"TEST #4 = ALPHA TAPE READ TEST")3 05290000 
OT h A mh A Arte" Nik ’ O05 300000 See 
SPACE MTA3 05310000 
SPACE MTA TAPEMARK; 05320000 
me MT A MES 3 0533000 
SPACE MTA TAPEMARK 05340000 
IF MON3 THEN 05350000 
READ MTA PA RN F2O INTO SUFFER ALPHA 05360000 eee ere 
ELSE 05370000 
READ MTA PATTERN F26 INTI BUFFER BUFF IL ALPHAS 05380000 
READ MTA PA >R , WU 6 FreER BUFF AL PH AS 5340000 Bee gee Le, : 
READ MTA RATTERN F22 INTO BUFFER BUFF1 ALPHA; 05400000 
_ READ MTA PATTERN F23 INTO BUFFER BUFFL ALPHA} 03410000 
READ MTA-PA RN INTG BUFFER ) ALENA O5420000 ee aes 
READ MTA PATTERN F25 INTO SUFFER BUFF 4 ALPHA} 05430000 
READ MTA PATTERN F26 INTO SUFFER BUFFL ALPHA; 05440000 
EAD A Pd ERN NTO #8 ‘ER 8 ALPHA bKWD3 05435000 eee eee 
READ MTA PATTERN F25 [WTO SUFFER BUFFL ALPHA BKWD3 05460000 
READ MTA PATTERN F24 INTO BUFFER. BUFF ALPHA BKWD3 05470000 
READ A PATTERN NTO 6 BR BUF ALP KWOD Q54680000 ai ficee 
READ MTA PATTERN F22 INTO BUFFER BUFFL ALFHA BKWD> 05490000 
READ MTA PATTERN F2i INTO BUFFER BUFFL ALPHA BKWD3 05500000 
READ MTA PATTERN F20, INTC BUFFER BUFFL ALPHA BKWD 05520000 
ELSE a 05530000 
po READ MTA f 6 INTO BUFFER § PHA ZS: 05540000 


BEGIN 049500090 
CISPLAY PAGES 04960000 
aps 
eee POON 

END 04980000 
5 TIMES3 04990000 
DO OS 000000 
WRITE MTA PATTERN R ALPHA 059010000 
5 TIMES3 95020000 
DO 0 19.00 
READ MTA PATTERN 8 05040000 

INTU BUFFER BUFFL ALPHA BKWD 


05050000 
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REWIND MTAS 052530000 
END * TIMESS GO TEST; 052360000 
Lx teee keane nn : 9 APE Ani F x ee ee ke ie i at ee 059 | Q etl ek han eee 
TEST 98 05580000 
OO BEGIN 05590000 
PRINT PA RR "TEST #9 = TAPE MA WE Si" 05600000 fe eee Sec 
PRINT PATTERN UL3U OUUBLE: 05610000 
CALL SPACEUPs: 05620000 
NO a THES POPs 05630000 as EE ECR ae eee 
SBEGINNING OF TEST 06030000 
DO BEGIN 06040000 
WR “ MTA PATTERN F103 049050000 . Laer iaes abate! 
WRITE MTA TAPEMARA; 06960000 
END 06070000 
5 MES > OO OO a en 
DO BEGIN 06990000 
— Eats TAPEMARK BKWD; 06100000 
, AS : s = : 0.6 1 4100 0] 2 nn St aac tnt OBE A reds 
END 06120000 
20 TIMES; 0613000C 
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END * TIMES! GO TEST; 
LetenkaaeeeaTE ST 10 (TAPE ERASE TEST abwtiie wwe tetera kh ee ee 06160006 
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CALL 


IF NOT TOGGLE THEN STUP; 
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weg * 
A i MARK 
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it in 


READ 
READ 
~RA 
READ 
READ 
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READ 
FILL 
EN 


| REWIND MTA 
END * TIMES; 


LABEL EXIT: 
END¢ 


a ere BKAL3 

MTA PATTERN F 20 ae TALLY INTO BUFFER BUFF1 BKWD; 
MTA PA 

MTA TAPEMARK ON enaR STOPS 

NTA TAPEMARK BKWD ON ERROR STOP; 


MLA APE MAR BK } fN RR 


MTA TAPEMARK ON ERROR STUPS 
TALLY WITH TALLY+8003 
TIME SS 


el OPA OOO 
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06710000 
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